home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 February
/
EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso
/
earcd
/
util3
/
cmpctplr.lha
/
CompactPlayer
/
Source
/
ARexx.c
next >
Wrap
C/C++ Source or Header
|
1995-12-28
|
3KB
|
158 lines
#include "sysheaders.h"
#include "cdpanel.h"
#include "CompactPlayer.h"
#ifndef AREXX_DefExtension /* typo in headers */
#define AREXX_DefExtension AREXX_DefExtention
#endif
/*************************************************
* ARexx interface
*/
static void __asm __saveds
ARexxPlay(register __a0 struct ARexxCmd *cmd, register __a1 struct RexxMsg *msg)
{
CD_Play( cmd->ac_ArgList[0] ? *(ULONG *)cmd->ac_ArgList[0] : 1 );
cmd->ac_RC = 0;
}
static void __asm __saveds
ARexxStop(register __a0 struct ARexxCmd *cmd, register __a1 struct RexxMsg *msg)
{
CD_Stop();
cmd->ac_RC = 0;
}
static void __asm __saveds
ARexxPause(register __a0 struct ARexxCmd *cmd, register __a1 struct RexxMsg *msg)
{
CD_PauseResume(0x00);
cmd->ac_RC = 0;
}
static void __asm __saveds
ARexxResume(register __a0 struct ARexxCmd *cmd, register __a1 struct RexxMsg *msg)
{
CD_PauseResume(0x01);
cmd->ac_RC = 0;
}
static void __asm __saveds
ARexxEject(register __a0 struct ARexxCmd *cmd, register __a1 struct RexxMsg *msg)
{
CD_Eject(0x01);
cmd->ac_RC = 0;
}
static void __asm __saveds
ARexxLoad(register __a0 struct ARexxCmd *cmd, register __a1 struct RexxMsg *msg)
{
CD_Eject(0x00);
cmd->ac_RC = 0;
}
static void __asm __saveds
ARexxQuit(register __a0 struct ARexxCmd *cmd, register __a1 struct RexxMsg *msg)
{
done = TRUE;
cmd->ac_RC = 0;
}
static void __asm __saveds
ARexxActivate(register __a0 struct ARexxCmd *cmd, register __a1 struct RexxMsg *msg)
{
UnIconify();
cmd->ac_RC = 0;
}
static void __asm __saveds
ARexxDeactivate(register __a0 struct ARexxCmd *cmd, register __a1 struct RexxMsg *msg)
{
Iconify();
cmd->ac_RC = 0;
}
struct ARexxCmd arexxCommands[] =
{
"PLAY", 1, ARexxPlay, "TRACK/N", 0, NULL, 0, 0, NULL,
"STOP", 2, ARexxStop, NULL, 0, NULL, 0, 0, NULL,
"PAUSE", 3, ARexxPause, NULL, 0, NULL, 0, 0, NULL,
"RESUME", 4, ARexxResume, NULL, 0, NULL, 0, 0, NULL,
"EJECT", 5, ARexxEject, NULL, 0, NULL, 0, 0, NULL,
"LOAD", 6, ARexxLoad, NULL, 0, NULL, 0, 0, NULL,
"QUIT", 7, ARexxQuit, NULL, 0, NULL, 0, 0, NULL,
"ACTIVATE", 8, ARexxActivate, NULL, 0, NULL, 0, 0, NULL,
"DEACTIVATE", 9, ARexxDeactivate, NULL, 0, NULL, 0, 0, NULL,
NULL
};
Object *ARexxObj;
STRPTR
InitARexx( void )
{
ULONG error;
if (FindPort("COMPACTPLAYER"))
{
LONG rc, rc2;
STRPTR res;
/* create a temporary ARexx object so that we can use it to signal the
* running CompactPlayer that it should wake up. */
ARexxObj = ARexxObject,
AREXX_HostName, "COMPACTPLAYER",
AREXX_ErrorCode, &error,
End;
DoMethod( ARexxObj, AM_EXECUTE,
"'ACTIVATE'", "COMPACTPLAYER",
&rc, &rc2, &res, NULL );
kprintf("%lx\n", ARexxObj);
CloseARexx();
return (APTR)~0;
}
else
{
ARexxObj = ARexxObject,
AREXX_HostName, "COMPACTPLAYER",
AREXX_DefExtension, "cp",
AREXX_Commands, arexxCommands,
AREXX_ErrorCode, &error,
AREXX_NoSlot, TRUE, /* this port will not have a number appended to it */
End;
if (ARexxObj)
{
STRPTR hostname;
GetAttr( AREXX_HostName, ARexxObj, (ULONG *)&hostname );
return hostname;
}
}
return NULL;
}
void
CloseARexx( void )
{
DisposeObject( ARexxObj );
ARexxObj = NULL;
}